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Guida per l'input dei programmi versioni 
CIÒ plus/4 - VIC 20 


Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe I / 
Tali parole rappresentano caratteri pi 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea- 


temporaneamente ai tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico 'so¬ 
litario" questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 


mente a SHIFT mentre se è racchiuso 


caratteri grafici e 

di controllo del cur- 

da [(>] deve essere 

premuto con- 


sore o dei colori 
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(OPPI 
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Per ricevere gli arretrati di compilare il seguente tagliando: 

K- . 

■ xa . Compilare ed Inviare in busta chiusa a: 

J. SOTt Viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome. 


Cognome. 
Indirizzo _ 


CAP. 


Città. 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


S ziyJ'J dedicato a. 


. Anno. 
Anno — 


a L. 2.000 cad per un totale di L. 
□ assegno allegato 


a mezzo 


□ contanti allegati 


........ 
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di C Goodich ired e odali di F Sorcina 

9 Mo«lrl galattici 

di S Hard in trac! cadali di F Sartina 



4 A Qui vive I8K RAM) 

I i di F Lemmim trad c adall di F Sorcina 

,d • Cinodromo 

I # di F Voglioso 


« TI-99/4A 


A 4 Astronomi IBASIO 
X 1 di P Lear nod e adall di E Re Garbagnall 

A A Caccia al rombi (BASIC) 

* di R Odi irad c odali di E Re Gorbagnali 


sinczlaii - 

Spectrum 


firn Ma qui e pieno di bugi (16/48K) 

Ài di P Baiiev v ad e adatt di C Panzaiis 
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Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani" che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l’hai sià fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: “:rem“ seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 0 PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI 6 e PLUS/4 


100 POKE55,0 :POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 F0RI=16128TO16260:READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU*}(RVSjSTOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,1 41 ,34,3,169,63,1 41 , 35,3 
2 30 DATAI 69,0, 13 3,6,96,32,232,2 35,1 33 
240 DATA3,134,4,132,5,8,201,13,240 

2 50 DATAI 7,201 ,32,240,5,24,101,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 

270 DATAI 69,1 3,32,210,255,165,205,141 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,2 55 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 


STOP BUG PER VIC 90 


100 POKE55,0 : POKF.56 ,PEEK(56) - 1 :R = PEEK (56) * 25'6rPR INT" {CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+132 :READA:CK=CK + A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK< >22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R)IPRINT"{CLR}{ 2 GlU 1 }{RVS}STOP BUG{OFF} ATTIVAT 
O.":NEW 

200 DATAI 73,36,3,201 , 32,208,1 ,96,1 41 
210 DATA3 3,999,1 73,37,3,1 41 , 34,999,1 69 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
24 0 DATA251,1 34,252,1 32,253,8,201 , 1 3,240 
250 DATAI 7,201,32,240,5,24,1 01,254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,210,255,1 65,21 4,1 4 1 ,251 

2 80 DATA3,206,2 51,3,169,0,1 33,21 6,169 
290 DATAI 9, 32,21 0,255, 169,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,166,2 54,1 69,0 
310 DATAI 33,2 54,1 72,3 3,999,1 9 2,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 

3 30 DATAI 69,32,32,21 0,2 55,32,21 0,2 55,1 73 
340 DATA251,3,133,214,76,55,999 
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Dots 


Dots è un programma educativo 
creato per insegnare ai bambini in 
età prescolare a distinguere numeri 
e lettere. Essi potranno far compa¬ 
rire un disegno, scelto tra quattro 
possibili, a II'interno di una matrice 
in cui ogni casellina è indicata dalle 
sue coordinate (numeri per le righe 
e lettere per le colonne). 


I disegni vengono tracciati con¬ 
giungendo, per mezzo di linee, le 
caselle della matrice nelle quali ap¬ 
paiono di volta in volta dei pallini. 
Ogni pallino aggiunge una linea al 
disegno soltanto se il bambino 
batte sulla tastiera le coordinate 
esatte, e via di seguito finché la 
figura non è completa. 


100 REM INTESTAZIONE : rem 18 

110 PRINT"{CLR}{BLU}":COLORO,1:COLOR4,l : rem 165 

120 PRINTSPC(10)"{ 3 Q}{ 3 SPAZI}{ 2 Q}{ 2 SPAZl}{ 5 Q} 

{ 2 SPAZI}{ 2 Q}" : rem 40 

130 PRINTSPC(10)"Ql 2 SPAZI}Q{SPAZI}Q{ 2 SPAZl}Q 

{ 2 SPAZI}Q{ 2 SPAZI}{SPAZI}Q{ 2 SPAZI}Q" : rem 244 

140 PRINTSPC(10)"Q {SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 

{SPAZI}Q{SPAZI} { 2 SPAZI}Q" :rem 132 

150 PRINTSPC(10)"Q {SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 

{SPAZI}Q{SPAZI}{ 2 SPAZI}{ 2 SPAZIjQ" : rem 133 

160 PRINTSPC(10)"Q {SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 

{SPAZI }Q{S.PAZI} { 2 SPAZI }Q{ 2 SPAZI}Q" : rem 87 

170 PRINTSPC{10)"{ 3 Q}{SPAZlT {SPAZI}{ 2 Q}{SPAZI} 

{ 2 SPAZl}Q{SPAZlT{ 2 SPAZI}{SPAZI}{ 2 Q} " : rem 233 

180 L=3162:C*2138:CD=-1024 :rem 104 


1 90 

A$="Z":GOSUB840 

: rem 

48 

200 

: 

: rem 

204 

21 0 

REM ISTRUZIONI 

: rem 

151 

220 

PRINTSPC(14)"{ 2 GIU’}{WHT}ISTRUZIONI:rem 

130 

230 

PRINTSPC(8)"{GIU'}QUANDO APPARE LO 

SCHEMA," : rem 

223 

240 

PRINTSPC(9)"CERCA IL PUNTO TONDO." 

:rem 

18 

250 

PRINTSPC(9)"{GIU'}BATTI IL NUMERO DELLA":PRINTSPC 

(11) 


"RIGA E 'RETURN'." 

: rem 

146 

260 

PRINTSPC(9)"{GIU'}BATTI LA LETTERA 

DELLA" : rem 

94 

270 

PRINTSPC(10)"COLONNA E 'RETURN'." 

: rem 

173 

280 

PRINTSPC(5)"{ 2 GIU'}{RVS}PREMI UN 

TASTO PER COMINCIA 


RE.":POKE2 39,0 

: rem 

8 

290 

GETKEYS$ 

: rem 

219 

300 

2 

: rem 

205 

31 0 

REM SCELTA DEL DISEGNO 

: rem 

1 8 

320 

COLORO,15,0:PRINT"{CLR}"SPC(8)"{ 5 

GIU'}[<3>]CHE 

COSA 


VUOI DISEGNARE?" 

: rem 

120 
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330 PRINTSPC(8)"{BLU}{ 3 GIU'}A - FARFALLA (22 PUNTI)" 




: rem 

20 

340 

PRINTSPC(10)"{GIU 1 }B - FUNGO (12 

PUNTI)PRINTSPC(9)" 


{GIU'JC - CAVALLO (20 PUNTI)" 

: rem 

132 

350 

PRINTSPC(10)"{GIU'}D - CUORE (10 

PUNTI)":POKE239, 

0 



: rem 

166 

360 

GETA$:IFA$<"A"ORA$>"D"THEN360 

:rem 

97 

370 

2 

: rem 

21 2 

380 

REM DISEGNO LAVAGNA 

: rem 

130 


390 PRINT"{CLR}[<3>]"SPC(11)"{ 2 GIU'}ABCDEFGHIJKLMNOPQR 



{HOME}" 

: rem 

21 1 

400 

FORRH=1TOl8 :FORT=lTOl 8 : POKEL+T+RHM 0, 

79 :POKEC+T+RH*40 


,78:NEXT:NEXT 

: rem 

172 

410 

PRINTSPC(11)"[<3>){ 20 GIU'}ABCDEFGHIJKLMNOPQR" 




: rem 

20 

420 

PRINT"{HOME}{ 3 GIU'}{BLU}"; 

: rem 

7 

430 

FORI = 1TOl8 :PRINTSPC(8)RIGHTS(STRS(I), 

2) SPC (19)" [<G>] " 


RIGHTS(STRS(I),2):NEXT 

: rem 

138 

440 

: 

: rem 

210 

450 

REM CARICAMENTO DATI 

: rem 

197 

460 

RESTORE 

: rem 

1 90 

470 

READBS :IFB$OA$THEN470 

:rem 

245 

480 

ONASC(A$)- 6 4G0T06 50,690,730,770 

: rem 

140 

490 

FORT=ITO500:NEXT 

:rem 

247 

500 

READA,B,E$,S: IFA=0THEN830 

: rem 

181 

510 

POKEA,81 :POKEA+CD,B 

: rem 

101 

520 

PRINT"{HOME}{ 39 SPAZI}" 

: rem 

123 

530 

PRINT"{BLU}{HOME} (-) NUMERO";:GOSUB930:N$=IN$ 




: rem 

86 

540 

PRINT"{HOME}"SPC(20)"(t) LETTERA";:GOSUB930:L$=IN$ 



: rem 

77 

550 

IFE$=N$+L$THEN610 

: rem 

162 

560 

PRINT"{HOME}{BLK}{ 16 SPAZI}RIPROVAI 

11 SPAZI}" 




:rem 

50 

570 

SOUNDl,300,10 

: rem 

162 

580 

FORT=lTO400:NEXT: SOUND1,500,10 

:rem 

56 

590 

FORT»1TOl500:NEXT:GOTO520 

: rem 

51 

600 

: 

: rem 

208 

610 

FORT=1TO700:NEXT:FORT=1TO18 :POKESQ,160:POKESQ+CD, 

B : IF 


S0=ATHEN6 3 0 

: rem 

146 

620 

SQ=SQ+S:NEXT 

: rem 

20 

630 

SOUNDl , 600,10:FORT=>lTO400 : NEXT: SOUNDl 

,800,10:GOT04 90 



.•reni 

138 

640 

5 

: rem 

21 2 

650 

POKE32 90,77 :POKE32 90+CD,0 :POKE3292,78 

:POKE3292+CD 

,0 



: rem 

146 

660 

POKE3331 , 1 60 :POKE3331 +CD,69 

:rem 

21 6 

670 

SQ=3331:GOTO490 

: rem 

88 

680 

• 

:rem 

21 6 

690 

POKE361 1 , 160:POKE3 611+CD,68 :POKE3612, 

160:POKE3612+CD, 


68 

: rem 

85 
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700 POKE3765,1 60 :POKE3765+CD,69 

:rera 

233 

710 SQ=3765:GOTO490 

: rem 

94 

720 : 

: rem 

21 1 

730 POKE3484,74 :POKE3484+CD,0 :POKE3485,75 :POKE34 85+CD 

,0 


: rem 

157 

740 POKE34 45,85 :POKE3445+CD,0 

: rem 

122 

750 POKE32 56,1 60 :POKE3256+CD,66 :SQ=3256 :G0T0490 

: rem 

220 

760 : 

: rem 

21 5 

770 PRINT"{HOME}{ 7 GIU 1 }" 

: rem 

249 

780 PRINTSPC(17)"{GRN}PAOLA" 

: rem 

154 

790 PRINTSPC(17)"{ 2 GIU’}1<1>]SONIA" 

: rem 

45 

800 PRINTSPC(16)"{ 2 GIU'}[<3>]TIZIANA" 

: rem 

207 

810 POKE3331 , 1 60:POKE3331 +CD,66 :SQ=3331 :GOTO4 90 

:rem 

199 

820 : 

: rem 

212 

830 PRINT"{HOME}{ 10 SPAZI}BUON LAVORO! ANCORA? 
{ 4 SPAZI}" 

: rem 

154 

840 READBS : IFB$O"Z"THEN840 

: rem 

48 

850 READF, D :IFF=-1ANDA$="Z"THENRETURN 

: rem 

59 

860 IFF=-1THEN890 

: rem 

222 

870 SOUND1, F, D :FORT=lTOD*l6 :NEXT 

: rem 

15 

880 GOTO850 

: rem 

118 

890 GETY$:IFY$O"S"ANDY$O"N"THEN890 

:rem 

129 

900 IFY$="S"THEN320 

:rem 

61 

910 : 

: rem 

212 

920 PRINT"{CLR}";: END 

: rem 

75 

930 PRINT"? "; :IN$ = "" 

: rem 

93 

940 PRINT"{RVS} {OFF}{SIN}"; 

: rem 

234 

950 GETAS;IFA$=""THEN940 

: rem 

94 

960 ZL=LEN(IN$) :IFA$=CHR$(20)ANDZLTHENPRINTAS; : 

IN$=LEFT$( 

IN$,ZL-1) 

: rem 

30 

970 IFA$=CHR$(13)ANDZLTHENPRINT" RETURN 

: rem 

26 

980 IF(A$<"0"ORA$>"R")OR( A$ >"9"ANDA$<"A")ORLEN(IN?)=2THEN 

950 

: rem 

67 

990 PRINTAS;:IN$=IN$+A$:GOTO940 

:rem 

92 

1 000 : 

: rem 

251 

1010 DATAA, 34 51 ,69,71,40,3295,66,3M,- 39 

:rem 

245 

1020 DATA3297,66,30,1,3379,66,50,41,3539,66,9Q, 

40,3617,66 

• ,110,39,3699,71,130,41 

: rem 

39 

1030 DATA3779,71,15Q,40,3818,71,16P,39,3815,71, 

16M,-1 

,365 

1,71,121,-41,3807,71,16E,39 

: rem 

240 

1040 DATA3804,71,16B,-1,3763,71,15A,-41,3683,71 

,13A,- 

40,3 

605,71,11C,-39 

:rem 

11 

1050 DATA3523,66,9A,-41 

: rem 

169 

1060 DATA3363,66,5A,-40,3285,66,3C,-39,3287,66, 

3E, 1 , 3451 , 

66,71,41,3731,69,141,40 

: rem 

10 

1070 DATA0,0,0,0 

: rem 

38 

1 080 : 

: rem 

3 

1 090 DATAB, 3770,69,1 5H,1 ,361 0,68,1 1H,-40,3607,68,1 1 E, 

-1,3 

567,68,10E,-40 

: rem 

53 

1100 DATA3489,68,8G,-39 

: rem 

1 90 
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Ilio DATA3494,68,8L,1,3576,68,1ON,41,3616,68,11N,40,3613, 
68,11K,-1,3773,68,1 5K,40 : rem 94 

1120 DATA3778,69, 1 5P,1,3770,69,1 5H,-1,0,0,0,0 : rem 253 

1130 : : rem 255 

1140 DATAC,3412,66,6J,39,3407,66,6E,-1 , 3446,66,7D , 39,3646 
,66,12D, 40,3728,66,1 4F,41 : rem 134 

1150 DATA3729,66,1 4G,1,3689,66,1 3G,-40,364 8,66,1 2F,-41,36 
08,66, 1 1 F,-40,361 2,66,1 1J,1 : rem 204 

1160 DATA3735,66,1 4M,41 , 3736,66,1 4N, 1 , 3656,66,1 2N,-40,361 
5,66,11M,-41,3455,66,7M,-40 : rem 238 

1170 DATA3377,66,5O,-39,3379,0,5Q,l,3339,0,4Q,-40,3338,0, 
4P,-1,3256,66,2N,-41 : rem 138 

1180 DATAO,0,0,0 : rem 40 

1190 : :rem 5 

1 200 DATAD,3208,66,1F,-41 ,3205,66,1C,- 1,3283,66,3A, 39,352 
3,66,9A, 40,3851 ,66,171,41 : rem 97 

1210 DATA3539,66,9Q,-39,3299,66,3Q,-40,3217,66,10,-41,321 



4,66,IL,-1,3331>66 

,41,39 :rem 

88 

1 220 

DATAO,0,0,0,Z 

: rem 

1 69 

1 230 

2 

: rem 

0 

1 240 

DATA596,30,685,10, 

739,20,810,20 : rem 

32 

1250 

DATA739,20,685,20, 

596,20,685,20,739,30,685,10 

: rem 

•229 

1 260 

DATA596,20 

: rem 

21 

1 270 

DATA453,20,596,40 

: rem 

110 

1 280 

DATA596,10,-1,0 

: rem 

252 


Mostri galattici 



S 


Ecco un gioco per i virtuosi della 
tastiera. Utilizzando i tasti W, A, D, 
X per andare rispettivamente in al¬ 
to, a sinistra, a destra e in basso 
dovete attraversare con la vostra 
astronave il quadro spaziale dal¬ 
l'alto verso il basso. La manovra 
* sarebbe semplice se non ci fossero 
a complicarla dei velocissimi mo¬ 
stri che fanno il possibile per cattu¬ 
rarvi ed annientarvi. Ogni volta che 


la traversata riuscirà vi troverete di 
fronte ad un nuovo quadro. 

Ma attenzione: si tratta di una lotta 
contro il tempo, in quanto per de¬ 
cidere ogni mossa avete a disposi¬ 
zione pochissimi protosecondi, 
passati i quali ogni possibilità di 
salvare la pelle è irrimediabilmente 
persaI II gioco termina quando tut¬ 
te e cinque le astronavi sono di¬ 
strutte. 


10 REM MOSTRI GALATTICI 
20 COLORO,2,7:COLOR4,7,3 


9 


: rem 181 
: rem 129 






30 PRINT"{CLR}{GIU 1 }{ 11 SPAZI}{RED}{RVS} MOSTRI GALATTIC 
I {OFF}" : rem 8 

40 PRINT"{BLU}{ 4 GIU'}{ 2 SPAZl}PER MUOVERE L'ASTRONAVE 


USA I TASTI" 

: rem 

1 27 

50 

PRINT"{GIU'}{ 14 SPAZI}->W :SOPRA" 

: rem 

200 

60 

PRINT"{GIU'}{ 14 SPAZI}->A :SINISTRA" 

: rem 

155 

70 

PRINT"{GIU'}{ 14 SPAZI}->D : DESTRA" 

: rem 

245 

80 

PRINT"{GIU'}{ 14 SPAZI}->X :SOTTO" 

: rem 

224 

90 

PRINT"{ 3 GIU'}{ 5 SPAZI}PREMI UN TASTO 

PER CONTINUARE 


fi 

: rem 

247 

1 00 

GETKEYAS 

: rem 

191 

no 

PRINT"{CLR}" 

: rem 

246 

1 20 

D$ = " { 20 GIU'}" 

: rem 

208 

1 30 

VOL8 

: rem 

189 

1 40 

DIMX (12) 

: rem 

123 

1 50 

DIMY (12) 

: rem 

1 25 

1 60 

GOTOl010 

: rem 

146 

170 

REM SCHERMO 

: rem 

141 

1 80 

PRINT"{CLR}" 

: rem 

253 

1 90 

FORT=1TOl0 

: rem 

71 

200 

PRINTSPC(13)"(<1>] { 11 Q}" 

: rem 

122 

210 

NEXTT 

: rem 

38 

220 

PRINTSPC(13) " [< 11 +>]" 

: rem 

34 

230 

PRINT"{HOME}{ 2 GIU'}{ 19 DES}{GRN}X{ 

10 GIU'}" 




: rem 

98 

240 

PRINTSPC(13)"PUNTEGGIO: "SC 

: rem 

132 

250 

Xl =6 

: rem 

147 

260 

Y1 =2 

: rem 

145 

270 

FORT=lTOl1 

: rem 

71 

280 

X(T)=T 

: rem 

40 

290 

Y (T) =1 1 

: rem 

56 

300 

NEXTT 

: rem 

38 

310 

KA= KA+.1 

:rem 

115 

320 

RETURN 

: rem 

117 

330 

REM MOSSA DEL GIOCATORE 

: rem 

111 

340 

KY=PEEK(2038) 

: rem 

187 

350 

SOUNDl,700,8 

: rem 

121 

360 

PRINT"{HOME}";TAB(Xl+13);LEFT$(D$,Yl); 

" [ < 1 > ] Q " 




: rem 

1 94 

370 

IFKY=18THENX1= X1+1 

: rem 

77 

380 

IFKY = 9THENY1= Y1 — 1 

: rem 

34 

390 

IFKY=23THENYl=Yl+1 

: rem 

77 

400 

IFKY=10THENX1=Xl-l 

: rem 

65 

410 

IFXl<1THENX1=1 

:rem 

64 

420 

IFYl<1THENYl=1 

: rem 

67 

430 

IFXl>11THENXl=11 

:rem 

166 

440 

PRINT"{HOME}";TAB(X1+13);LEFT$(D$,Yl); 

"{GRN}X" 




: rem 

101 

450 

PRINT"{HOME}";TAB(X1+13);LEFTS(D$,Yl); 

"{GRN}X" 




: rem 

102 

460 

FORT=1TOl1 

: rem 

72 
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470 

IFXlOX(T) THEN 51 0 

: rem 

239 

480 

IFYl<>Y(T)THEN51 0 

: rem 

242 

490 

GOSUB950 

: rem 

187 

500 

CA= -1 

: rem 

180 

51 0 

NEXTT 

: rem 

41 

520 

RETURN 

: rem 

119 

530 

REM MOSSA DEL MOSTRO 

: rem 

184 

540 

FORT=1TOl1 

: rem 

71 

550 

PRINT"{HOME}";TAB(X (T) +1 3) ;LEFT$(D$,Y(T) ) 

; " [ < l > ] Q 

II 



: rem 

171 

560 

IFRND(0)< KATHEN8 30 

: rem 

33 

570 

A= INT (RND (0) *4) 

: rem 

25 

580 

IFA=0THEN620 

: rem 

161 

590 

IFA=1THEN640 

: rem 

165 

600 

IFA=2THEN660 

: rem 

160 

61 0 

GOTO680 

: rem 

no 

620 

X(T)=X(T)+1 

: rem 

43 

630 

GOTO690 

: rem 

113 

640 

X(T)=X(T)-1 

: rem 

47 

650 

GOTO690 • 

: rem 

115 

660 

Y(T)=Y(T)-1 

: rem 

51 

670 

GOTO690 

: rem 

1 1 7 

680 

Y(T) =Y(T) -1 

: rem 

53 

690 

IFX(T) < 1THEN7 4 0 

: rem 

98 

700 

IFX(T)>11THEN760 

: rem 

143 

71 0 

IFY(T)<1THEN7 80 

: rem 

96 

720 

IFY(T)>1 1 THEN800 

: rem 

141 

730 

GOTO810 

: rem 

108 

740 

X (T) =X (T) +1 

: rem 

46 

750 

GOTO890 

: rem 

118 

760 

X(T)=X(T)-1 

: rem 

50 

770 

GOTO890 

: rem 

1 20 

780 

Y(T)=Y(T)+1 

: rem 

52 

790 

GOTO890 

: rem 

122 

800 

Y(T)=Y(T)-1 

: rem 

47 

810 

PRINT"{HOME} " ;TAB(X(T)+13) ; LEFT$(D$,Y(T) ) 

;" {GRN }[<+>] 


•i 

: rem 

28 

820 

GOTO890 

: rem 

1 1 6 

830 

X2=Xl-X(T) 

: rem 

21 

840 

Y2=Yl-Y(T) 

: rem 

25 

850 

IFRND(0) < .8THEN880 

: rem 

2 

860 

X(T)=X ( T)+SGN(X2) 

: rem 

195 

870 

GOTO890 

: rem 

121 

880 

Y(T)=Y(T)+SGN(Y2) 

: rem 

200 

890 

PRINT"{HOME}";TAB(X(T)+13);LEFT$(D$,Y(T) ) 

;"[<!>][ 

< + >] 


ii 

: rem 

135 

900 

NEXTT 

: rem 

44 

910 

FORU=1TOl1 

: rem 

73 

920 

PRINT"{HOME}";TAB(X(U)+13);LEFT5(D$,Y(U)) 

;"[<!>! [ 

< + >] 


M 

: rem 

131 

930 

NEXTU 

: rem 

48 


940 : 

RETURN 

: rem 

125 

950 : 

FORL= 1 T01 0 

:rem 

67 

960 : 

FORM= 500T07 80+L*10STEP20 

: rem 

135 

970 : 

SOUNDl,M/1 

: rem 

48 

980 1 

NEXTM 

: rem 

45 

990 1 

NEXTL 

: rem 

45 

1 000 

RETURN 

: rem 

161 

1 01 0 

REM PROGRAMMA CENTRALE 

: rem 

154 

1020 

KA= KA+.1 

: rem 

162 

1 030 

GOSUBl80:REM SCHERMO 

: rem 

12 

1 040 

GOSUB340:REM MOSSA DEL GIOCATORE 

: rem 

239 

1 050 

BR=BR+1 

: rem 

135 

1060 

IFNOTCATHENl180 

:rem 

196 

1070 

K=K+1:CA=0 

:rem 

34 

1 080 

SC=SC+AT-BR-5*K 

: rem 

138 

1 090 

IFK< 5THEN1 030 

: rem 

8 

1100 

PRINT"{CLR}{GIU'} TERMINE DEL GIOCO." 

: rem 

191 

ino 

PRINT"{GIU'} IL TUO PUNTEGGIO E 1 DI:"; 

:rem 

82 

1120 

PRINTSC 

: rem 

231 

1 1 30 

PRINT"{GIU'} VUOI CONTINUARE (S/N)?{GIU' 

}":POKE239,0 



:rem 

182 

1 1 40 

GETKEYA$ 

:rem 

244 

1 1 50 

IFA$="S"THENRUN 

:rem 

179 

1 1 60 

IFA$ <>"N"THENl 1 40 

: rem 

189 

1 1 70 

END 

: rem 

160 

1 1 80 

AT=0:IFYl=11THENBR=0:AT=40:GOTOl080 

:rem 

1 54 

1190 

GOSUB540 

: rem 

228 

1 200 

GOTOl040 

: rem 

1 93 



Qui vive 


8K RAM 


Questo gioco, appassionante e an¬ 
tichissimo, si effettua su una scac¬ 
chiera di dimensioni 5x5. Ogni 
giocatore dispone di 5 pedine e 
deve cercare di sistemarle in modo 
da ottenere una configurazione 
simmetrica. Nella versione che vi 
presentiamo il vostro avversario è 
il VIC. 

All'inizio del gioco la scacchiera è 
vuota e, alternativamente, voi e il 


computer dovrete disporre le pe¬ 
dine su di essa impostando le 
coordinate desiderate (Al, B3, D2, 
eco ). Una volta sistemate tutte le 
pedine comincerete a muoverle 
cercando di ottenere una configu¬ 
razione vincente. Dovrete in que¬ 
sto caso digitare prima le coordi¬ 
nate della pedina che volete muo¬ 
vere, quindi le coordinate della 
posizione d'arrivo desiderata. 
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1 0 

REM QUI VIVE 


: rem 

11 0 

20 

POKE36879,141 


: rem 

100 

30 

DIMSF(41,4),SO(41) 


: rem 

112 

40 

DIMD (107,1) ,DF(15,8) 


: rem 

153 

50 

DIMCC(4,1),B(24),C(24) 


: rem 

242 

60 > 

GOTOl810 


: rem 

105 

70 

REM CALCOLA I PUNTI DI DF 


: rem 

42 

80 ' 

3V=0:Pl=0:P2=0:Cl=0:C2=0 


: rem 

250 

90 

Di=B(DF(NF,0)):D2=B(DF(NF, 

U) 

: rem 

197 

100 

IFDl=1ORD2=lTHENPl=1 


: rem 

166 

110 

IFDl =1OORD2-10THENC1-10 


: rem 

42 

1 20 

Di=B(DF(NF,2)):D2=B(DF(NF 

,3)) 

: rem 

243 

1 30 

IFDl a lORD2=lTHENP2=1 


: rem 

170 

1 40 

IFDl=1OOR D2=l0THENC2=10 


: rem 

46 

1 50 

GV=B(DF(NF,4))+B(DF(NF,5))+B(DF(NF,6) ) 

:rem 

239 

1 60 

P=GV+Pl+P2+C1+C2 


:rem 

89 

1 70 

IFGV=30AND(CI=0ORC2=0)THENP=P-10 

: rem 

134 

1 80 

IFGV=3AND(PI=0ORP2=0)THENP=P-1 

:rem 

65 

1 90 

RETURN 


:rem 

122 

200 

REM INIZIALIZZA LE FIGURE 

SINGOLE 

:rem 

40 

210 

FORI=0TO41 :READX$ 


: rem 

10 

220 

FORJ=lT05 


: rem 

11 

230 

SF(I,J-1)=ASC(MID$(X$,J,1))-65 

:rem 

55 

240 

NEXT:NEXT: RETURN 


: rem 

104 

250 

REM CONFIGURAZIONI 


: rem 

162 

260 

DATAUQMSY,PLHNT,KGC IO 


: rem 

156 

270 

DATAAGMIE,FLRNJ,KQWSO 


:rem 

127 

280 

DATAAGMQU,BHNRV,CIOSW 


: rem 

140 

290 

DATAEIMS Y,DHLRX,CGKQW 


: rem 

147 

300 

REM PER (X) 


: rem 

7 

310 

DATAACGKM,BDHLN,CEIMO 


: rem 

62 

320 

DATAFLHPR,GIMQS,HJNRT 


:rem 

138 

330 

DATAKMQUW,LNRVX,MOSWY 


: rem 

21 4 

340 

REM PIU' (+) 


: rem 

12 

350 

DATABFGHL,CGHIM,DHIJN 


:rem 

66 

360 

DATAGKLMQ,HLMNR,IMNOS 


:rem 

142 

370 

DATALPQRV,MQRSW,NRSTX 


: rem 

21 8 

380 

REM DIAGONALI (/) 


: rem 

135 

390 

DATAAGMSY,EIMQU 


: rem 

228 

400 

REM COLONNE (I) 


: rem 

32 

410 

DATAAFKPU,BGLQV,CHMRW 


: rem 

123 

420 

DATADINSX,EJOTY 


: rem 

237 

430 

REM RIGHE (-) 


: rem 

104 

440 

DATAABCDE,FGHIJ,KLMNO 


: rem 

66 

450 

DATAPQRST,UVWXY 


: rem 

44 

460 

REM INIZIALIZZA LE FIGURE 

DOPPIE 

: rem 

224 

470 

FORI=OTOl07STEP12:READX$ 


:rem 

228 

480 

FORJ=0TOl1:FORK=OTOl 


: rem 

236 

490 

L=2*J+K+1:D(I+J,K)=ASC(MID$(X$,L,1))-49 

treni 

65 

500 

NEXT:NEXT:NEXT 


: rem 

198 

510 

RETURN 


: rem 

118 
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520 

DATA"171 : 1 AlciElMi 01P2>2@2B2J" 

: rem 

11 7 

530 

DATA"393< 3 = 3?3G474 :4=4?4A4040" 

: rem 

101 

540 

DATA"4P5@ 5B5D5J696< 6C6E6M7 = 7A" 

: rem 

163 

550 

DATA"7C7I707P8>8B8D8J9?9E9K:?" 

: rem 

224 

560 

DATA":A:E:K:0:P;>;@;D;J<=<C<I" 

: rem 

0 

570 

DATA"=G=I=0>F>H>J?G?K?P@F@J@L" 

: rem 

93 

580 

DATA"AGAIAKAMAOAPBHBJBNCICMCP" 

: rem 

157 

590 

DATA"DJDLDNEKEMEOFRFWGSGWHTHW" 

: rem 

10 

600 

DATA"I RIXJSJXKTKXLRLYMSMYNTNY" 

: rem 

131 

61 0 

REM VALUTA IL CAMPO DELLE FIGURE DOPPIE 

: rem 

54 

620 

TC=4:TN=0 

: rem 

233 

630 

FORI = 0TO4:C(SF(D(DF,0) ,I) ) =1 : NEXT 

: rem 

156 

640 

FORI = 0TO4:SF=SF(D(DF, 1 ) ,1) 

: rem 

249 

650 

IFC(SF)=1THEN670 

: rem 

145 

660 

DF ( NF,TN)=SF:TN=TN+1:GOTO680 

: rem 

21 5 

670 

DF ( NF,TC)=SF:TC=TC+1:C(SF)=0 

: rem 

122 

680 

NEXT 

: rem 

221 

690 

FORI = 0TO4:SF=SF(D(DF,0) ,1) 

: rem 

253 

700 

IFC(SF)=1THENDF ( NF,TN)=SF:TN=TN+1:C(SF)=0 

: rem 

238 

710 

NEXT:RETURN 

: rem 

241 

720 

REM VISUALIZZA IL CAMPO 

: rem 

148 

730 

PRINTSPC(5)"{GIU' }{ 3 SPAZI } ABCDE { GIU '} " 

: rem 

72 

740 

FORI=0TO4:PRINTSPC(5)5-1;:FORJ=0TO4 

: rem 

21 5 

750 

F=I* 5+J 

: rem 

60 

760 

IFB(F)=0THENPRINT"."; 

: rem 

219 

770 

IFB(F)=1THENPRINT"W"; 

: rem 

134 

780 

IFB(F)=10THENPRINT"Q" ; 

: rem 

177 

790 

NEXT : PRINT5-I : NEXT 

: rem 

202 

800 

PRINTSPC(5)"{GIU'}{ 3 SPAZI}ABCDE{ 2 GIU'}" 

: rem 

87 

81 0 

RETURN 

: rem 

121 

820 

REM 

: rem 

126 

830 

OM=-1 : WM=-1 

: rem 

75 

840 

FORSF=0TO41 

: rem 

145 

850 

P=B(SF(SF,0) ) +B(SF(SF,1))+B(SF(SF,2) ) +B(SF(SF,3) ) +B(S 


F(SF,4) ) 

: rem 

26 

860 

IFP=0ORP=l0ORP=20ORP=30THENSO(SF)=10:GOTO960 

i : rem 

5 

870 

IFPO40THEN91 0 

: rem 

37 

880 

GOSUB970 

: rem 

192 

890 

GOSUBl010 

:rem 

227 

900 

WM=1:SF=41:GOTO960 

:rem 

50 

910 

IFP>20ORP<3ORP=l1ORP=l2THENSO(SF)=0:GOTO960 

:rem 

21 2 

920 

SO(SF)=1 

: rem 

149 

930 

IFP=4ANDOM=-1THENGOSUB970 

treni 

69 

940 

IFP=14THENGOSUB1010 

:rem 

143 

950 

IFP=5THENSF=41 

: rem 

89 

960 

NEXT:RETURN 

:rem 

248 

970 

REM DETERMINA LE MOSSE OBBLIGATE (OM) 

: rem 

171 

980 

FORI=0TO4 

: rem 

21 

990 

IFB(SF(SF,I))=0THENOM=SF(SF, I) 

: rem 

41 

1000 NEXT:RETURN 

:rem 

26 

1010 REM 

: rem 

166 
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1 020 

FORI=0TO4 

: rem 

55 

1 030 

IFB(SF(SF,I))<>1OTHENl070 

: rem 

176 

1 040 

FORJ=OTOCC-1 

: rem 

234 

1 0 50 

IFSF(SF,I)=CC(J,0)THENCC(J,1)=1 

: rem 

34 

1060 

NEXT 

; rem 

6 

1070 

NEXT 

: rem 

7 

1 080 

RETURN 

: rem 

169 

1 090 

REM 

:rem 

1 74 

1 1 00 

NC=0:NP=0:NF=0 

:rem 

64 

1110 

FORI=OTOl5 

: rem 

105 

1 1 20 

DF(1,8)=-l 

:rem 

231 

1 1 30 

DF(1,7) =0 

:rem 

1 85 

1 1 40 

NEXT 

:rem 

5 

1 1 50 

FORUF=OTOl07 

:rem 

224 

1 1 60 

01=SO(D(DF » 0)) :02=SO(D(DF,1)) 

: rem 

90 

1 1 70 

IFOl 0020R01 =OORO2 = OTHENl 290 

:rem 

235 

1 1 80 

GOSUB610 

: rem 

225 

1 1 90 

GOSUB70 

: rem 

178 

1 200 

IFP=40RP=14THENDF(NF,7)=1:GOTOl230 

: rem 

78 

1 21 0 

IFOl=1ORP< = DF(NF,8)THENl 290 

: rem 

1 21 

1 220 

DF(NF, 7 ) = 1 0 

: rem 

53 

1 230 

DF(NF,8)=P 

:rem 

38 

1 240 

NF=0 

: rem 

200 

1 250 

FORI=OTOl5 

:rem 

110 

1 260 

IFDF(1,8)>=DF(NF,8)THENl280 

: rem 

40 

1 270 

IFDF(1,7)=OORDF(1,7)=10THENNF=1 

:rem 

68 

1 280 

NEXT 

: rem 

10 

1 290 

NEXT 

: rem 

11 

1 300 

RETURN 

: rem 

1 64 

1310 

REM VALUTA LA MOSSA STRATEGICA 

: rem 

109 

1 320 

IFWM=1THENl470 

:rem 

98 

1 330 

MC = 0 : N 2 = 0 

: rem 

235 

1 340 

FORNF=OTOl5 

: rem 

1 85 

1 350 

IFDF(NF,7)=0THEN1 41 0 

; rem 

1 40 

1 360 

GOSUB70 

: rem 

1 77 

1 370 

IFDF(NF,7)=1THENl400 

: rem 

1 42 

1 380 

IFP=MCTHENN2=N2+1 

; rem 

64 

1 390 

IFP>MCTHENMC = P:N2 = 1 

:rem 

238 

1 400 

IFP= 4THENNF=15 

:rem 

1 23 

1410 

NEXT 

: rem 

5 

1 420 

IFPP=-1THENl470 

: rem 

1 40 

1 430 

IFP= 4THENRETURN 

; rem 

39 

1 440 

IFMC<MPTHENRETURN 

:rem 

208 

1450 

IFMC=MPANDN2<NlTHENRETURN 

:rem 

224 

1 460 

IFMC =MPANDN2=NlANDRND(0)<.5THENRETURN 

:rem 

1 85 

1 470 

MP=MC: Ni=N2 

: rem 

1 72 

1480 

PP=CP:PT=CT 

: rem 

239 

1 490 

RETURN 

: rem 

1 74 

1 500 

REM MOSSA DEL GIOCATORE 

:rem 

1 59 

1 510 

IFPC< 5THEN1550 

: rem 

84 

1 520 

PRINT"CHE PEDINA":PRINT"VUOI MUOVERE"; 

: rem 

1 98 
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1 530 

GOSUBl 630 :PT=X 

: rem 

1 34 

1 540 

IFB(PT) < > 1 THENPRINT"IMPOSSIBILE !":GOTOl520 

: rem 

21 5 

1 550 

PRINT"DOVE VUOI METTERE":PRINT"LA TUA PEDINA"; 




: rem 

145 

1 560 

GOSUBl 630 :PP=X 

: rem 

1 33 

1 570 

IFB (PP) OOTHENPRINT" IMPOSSIBILE ! ": GOTOl 550 

: rem 

21 6 

1 580 

IFPC= 5THENB(PT)=0 

: rem 

53 

1 590 

IFPC< 5THENPC=PC+1 

: rem 

80 

1 600 

B(PP)=1 

: rem 

1 04 

1610 

PRINT"{CLR}( 2 GIU'}":GOSUB720 

: rem 

161 

1 620 

RETURN 

: rem 

169 

1 630 

REM INPUT 

: rem 

62 

1 640 

INPUTXS : IFLEN(X$) 02THEN1 690 

: rem 

247 

1 650 

L$ = LEFT$(X$,1):D$ = RIGHT$(X$,1) 

: rem 

157 

1 660 

IFL$ <"A"ORL$>"E"ORD$<"1"ORDS >"5"THEN1690 

: rem 

222 

1 670 

X=ASC(L$)-5*VAL(D$)-40 

: rem 

180 

1 680 

RETURN 

: rem 

175 

1690 

PRINT"INPUT ERRATO! RIPROVA":GOTOl640 

: rem 

128 

1 700 

REM MOSSA DEL COMPUTER 

: rem 

115 

171 0 

PRINT"{CLR}{GIU 1 }":IFCC< 5THENPT=CC:CC=CC+1 

:GOTOl770 



: rem 

1 81 

1 720 

PRINTSPC(5)"PRENDO{ 2 SPAZI}"CHR$(65+PT-INT(PT/5) 

*5) 


;5-INT(PT/5) 

: rem 

12 

1 730 

B(PT)=0 

: rem 

111 

1 740 

FORCI=0TO4 

: rem 

131 

1 750 

IFCC(CI,0)=PTTHENPT=CI:CI=4 

: rem 

207 

1760 

NEXT 

: rem 

13 

1 770 

PRINTSPC(4)"MUOVO IN{ 2 SPAZI}"CHR$(65+PP- 

INT(PP/5)* 


5);5-INT(PP/5):PRINT 

: rem 

48 

1 780 

B(PP)=10:CC(PT,0)=PP 

:rem 

143 

1 790 

GOSUB720 

: rem 

234 

1 800 

RETURN 

: rem 

169 

1810 

REM PARTE PRINCIPALE 

: rem 

17 

1 820 

PRINT"{CLR}{BLK}{GIU'}":PRINTSPC(6)"ATTENDERE 



{ 2 GIU'}" 

:rem 

6 

1 830 

GOSUB200 

: rem 

222 

1 840 

GOSUB460 

: rem 

231 

1 850 

CC=0:PC=0 

:rem 

251 

1 860 

PP=12:GOTO2070 

: rem 

75 

1870 

FORI = 0TO4:CC(1,1)=0 :NEXT 

: rem 

225 

1 880 

GOSUB820 

: rem 

235 

1 890 

IFP= 5THENPRINT"{GIU'}FINE.":END 

: rem 

149 

1 900 

IFWM=1THENl920 

: rem 

102 

1910 

GOSUBl090 

: rem 

21 

1 920 

MP=0:Nl=0:PP=-1 

: rem 

113 

1 930 

BF=0:EF=24 

: rem 

42 

1 940 

IFOMO- 1 THENBF=OM: EF=OM 

: rem 

255 

1 950 

FORCP=BFTOEF 

: rem 

60 

1 960 

IFB(CP) O0THEN2060 

: rem 

38 

1 970 

B(CP)=10 

: rem 

149 

1 980 

IFCC< 5THENGOSUB1310:GOTO2050 

: rem 

6 
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1 990 

FORCI=0TO4 

: rem 

138 

2000 

IFCC(CI,1)THEN2040 

: rem 

6 

201 0 

CT=CC (CI,0) :B(CT)=0 

: rem 

39 

2020 

GOSUB1310 

: rem 

9 

2030 

B (CT) =10 

:rem 

141 

2040 

NEXT 

: rem 

5 

2050 

B(CP)=0 

: rem 

90 

2060 

NEXT 

: rem 

7 

2070 

GOSUB1700 

:rem 

1 7 

2080 

IFWM=1THENP=5:GOTOl890 

:rem 

161 

2090 

GOSUB1500 

: rem 

1 7 

2100 

PRINTSPC(6)"{ 2 GIU'}ATTENDERE" 

: rem 

191 

2110 

GOTOl870 

:rem 

205 


Cinodromo 


Questo programma per VIC 20 ine¬ 
spanso usa alcuni accorgimenti 
tecnici, quale la redifinizione dei 
caratteri dello schermo, che lo ren¬ 
dono particolarmente gradevole 
graficamente. 

Scopo del gioco è fare percorrere 
ad un levriero 200 metri di corsa il 
più velocemente possibile. Si può 
giocare da soli o in due persone. 
Il movimento del levriero è coman¬ 
dato dalla pressione di due tasti a 


scelta del giocatore. Ovviamente il 
" repeat" su tasti come la barra spa¬ 
ziatrice viene disinserito. 

Il programma è diviso in due parti, 
e come al solito la seconda va sal¬ 
vata sulla cassetta di seguito alla 
prima. Una volta caricata la prima 
parte nella memoria del tuo VIC, 
mandala in esecuzione con RUN 
ed essa provveder automatica¬ 
mente al caricamento della secon¬ 
da. 


programma 1 


5 POKE52,28 :POKE56,28 :CLR:PRINT"{CLR}":PRINT"{HOME} 

{ 3 GIU'JCARICAMENTO DA ROM" :rem 

10 FORI = 7168TO7679:PRINT"{HOME}";I :POKEI,PEEK(1 + 25600) 

XT :rem 

11 PRINT"{HOME}{ 3 GIU'JCARICAMENTO IN RAM" : rem 

15 FORI = 7168T07383:PRINT"{HOME}";I :READA:POKEI,A :NEXT 

: rem 

20 DATAO,0,0,1 , 3,3,23, 255 : rem 

25 DATAO,0,255,255,255,255,207,128 :rem 

30 DATA8,12,254,255,224,204,67,32 :rem 

35 DATA7,0,0,0,0,0,0,0 :rem 


1 1 0 
: NE 
4 

22 

242 
21 6 
185 
131 
61 
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40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 
95 
100 
110 
120 
1 30 
1 35 
1 40 
1 45 
1 46 
1 47 
1 48 
1 49 
200 
210 
220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

31 1 
31 2 
31 3 
31 4 


DATA32,32,16,0,0,0,0,0 :rem 

DATAO,0,0,1,3,5,24,1 :rem 

DATAO,0,254,255,255,247,227,131 :rem 

DATA8,12,254,255,224,192,128,0 :rem 

DATAI 31,79,2,2,1,0,0,0 :rem 

DATAO,0,0,3,5,8,48,0 :rem 

DATAO,120,255,255,255,255,127,57 :rem 

DATA8,12,254,255,224,192,128,0 :rem 

DATA25,126,13,4,0,0,0,0 :rem 

DATA1 28,64,192,0,0,0,0,0 : rem 

DATAO,0,1 95,63,7,7,7,5 : rem 

DATAO,7,255,255,255,223,207,192 :rem 

DATA8,252,254,255,192,128,224,112 :rem 

DATA13,12,12,24,16,8,0,0 :rem 

DATAI 92,192,128,64,0,0,0,0 :rem 

DATA46,64,,,,,, :rem 

DATA255,16,16,16,16,16,16,255 :rem 

DATA60,66,129,165,129,153,66,60 :rem 

DATA96,112,120,124,64,64,64,64 : rem 

DATAO,0,0,31,31,55,39,39 :rem 

DATAO,0,0,24 8,24 8,236,228,228 : rem 

DATA63,31,7,7,3,1,1,15 :rem 

DATA252,248,224,224,192,128,128,240 :rem 

PRINT"{CLR}":POKE36879,27 :PRINT"{BLK}" :rem 

PRINT"{ 5 SPAZI}0M[<@>]R{ 2 F}R[<@>]NP" : rem 

PRINT"{ 4 SPAZI}[<M>]{ 4 SPAZlJlU{ 4 SPAZI}[<G>] 

: rem 

PRINT"{ 4 SPAZI}Y 0[<G>]{ 4 SPAZI}[<M>]P T" 
PRINT"{ 4 SPAZIjHN T{CYN}Q{ 2 SPAZI}Q{BLKTy 


II 


PRINT"{ 7 SPAZI}G{ 4 SPAZI}H" 

PRINT"{ 7 SPAZI}B {BLK}[<D>J [<F>] {BLK} -" 

PRINT"{ 7 SPAZI} HU{BLK}[<C>][<V>]{BLK}IG" 

PRINT"{ 7 SPAZI}Y- [<G>]-T" 

PRINT"{ 7 SPAZI}l<M>]J{<e>]I<V>]K(<G>]" 

PRINT"{ 8 SPAZI}[<G>)T 2 SPAZI}[<M>]" 

PRINT"{GIU'}{ 6 DES}{RED}C{CYN}l{PUR}N{BLU}0{GRN}D 
{BLK}R{YEL}0{PUR}M{RED}0{BLU}" : rem 

PRINT" { 2 SU}U{ 20 Mi" : rem 

PRINT"{SU}^CARICAMENTO IN CORSO-" : rem 

PRINT"{SU}J{ 20 *}K{ 3 SU}{WHT}" :rem 

POKE631,13T:POKEl98,1 : rem 


: rem 
MG" 

: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
rem 


21 1 
119 
179 
137 
222 
133 
238 
139 

14 
76 

249 

195 

74 

111 

222 

182 

137 

244 
189 
131 

137 
33 

187 

160 

22 

79 

254 

15 
247 
143 

49 
119 
1 99 
176 

) 

103 

38 

245 
70 

138 


programma 9 

0 KI$ = "1 900" : rem 51 

1 POKE36869,242 :POKE36879,1 08:PRINT"{WHT}{CLR}" : rem 22 

2 PRINT"{RVS}{ 7 DES}CINODROMO{OFF}":PRINT"{YEL} 

[< 22 Y>]" : rem 255 

3 PRINT" {HOME} { 7 GIU'H 8 DES } BY { 2 SPAZ I }V.F" : PRINT" 
{RVS}{CYN}{ 22 SPAZI}{OFF}":FORT=lT05000:NEXT :rem 109 
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10 INPUT"{CLR}{WHT}{ 3 DES}NUMERO GIOCATORI{HOME} 

{ 2 GIU'}"; A : rem 76 

15 IFA<1THENPRINT"{CLR} FINE ":GOTQ20001 : rem 190 

20 IFA>2THENPRINT"NON PIU'DI2":FORT=lTOl 000 :NEXT:GOTOl0 

:rem 245 

21 DIMA$(A):DIMDEC$(A):DIMTE(A):B=1 : rem 243 

25 POKE36879,1 08:POKE36869,24 2 :PRINT"{CLR}{WHT}DIMMI IL T 

UO{ 2 SPAZI}NOME":PRINT"GIOCATORE N.";B : rem 153 

30 INPUT" NOME GIOCATORE{HOME} { 3 GIU'}";A$(B) : IFLEN(A$(B) 

)>3THENPRINT"{CLR}PER FAVORE 3 INIZIALI":GOTO30 


:rem 125 

35 PRINT"OK {YEL} "; A$(B)"{CYN} QUALE CANE{WHT} ":PRINT"P 
REFERISCI ?" : rem 81 

40 PRINT"{RVSjPLUTO{OFF} 1[<V>J":PRINT"{RVS}BUK{OFF} 2 

[<V>1":PRINT"{RVSjLILLI{OFF} 3[<V>}" :rem 115 

45 GETQ$:IFQ$=""THEN45 :rem 21 

50 IFQ$=" 1 "THENB$="PLUTO" :COL=0 :retn 202 

51 IFQS="2"THENB$="BUK":COL=2 :rem 28 

52 IFQ$="3"THENB$="LILLI":COL=6 :rem 182 

55 PRINT"OK " ; A$(B);" FAI ":PRINT"{DES}CORRERE ";B$ 


:rem 178 

60 FORT=lTO500:NEXTT:PRINT"PREMI SHIFT PER IL VIA":Sl=368 

77 :WAIT653,1 :TI$ = "000000" : rem 134 

61 POKES1 , 220 :FORL=l5TO0STEP-.1 :POKE36878,L:NEXT:POKE3687 

8,15:POKES1,0 :PRINT"{CLR}":POKE36879,21 9 :rem 35 

62 POKE36869,255:POKE650,127 :rem 57 


66 PRINT"{HOME}{RED}UUUUUUUUUUUUUUUUUUUUUU":PRINT"{RED} 

{SU}UUUUUUUUUUUUUUUUUUUUUU" : rem 192 

67 PRINT"{SU}{RED}UUUUUUUUUUUUUUUUUUUUUU":PRINT"{RED}{SU} 

UUUUUUUUUUUUUUUUUUUUUU" : rem 63 

68 PRINT"{SU}{BLK}TTTTTTTTTTTTTTTTTTTTTT":PRINT"{SU}{BLK} 

TTTTTTTTTTTTTTTTTTTTTT" :rem 2 5 2 

69 PRINT"{GRN}V {BLK}V {BLU}V {RED}V {PUR}V {CYN}V {WHT}V 

{YEL}V {GRN}V{BLK} V {BLU}V ":PRINT"{ 4 GIU'}":PRINT" 
{GRN}{ 22 SPAZI}" : rem 254 

77 POKE804 7,23:POKE8048,24:POKE8069,25:POKE80 70,26 :POKE38 

767,0 :rem 67 

78 POKE38767 + 1 , 0:POKE38767 + 22,0:POKE38767 + 23,0 :rem 44 

80 Al=38620:A2=38620+22 : rem 150 

85 POKEAl ,COL:POKEAl+1,COL:POKEAl+2,COL:POKEA2,COL :POKEA2 



+ 1,COL :POKEA2 + 2,COL 

: rem 

6 

90 

TI$="000000":PRINT"{ 

4 GIU'}" : rem 

26 

91 

PL=8009 

: rem 

20 

92 

FORGI = 1T04 4 

: rem 

91 

95 

POKE7900,0 :POKE7901 , 

1 :POKE7902,2 :POKE7922,3 :POKE7923,3 


2 :POKE7 92 4,4 

: rem 

3 

1 00 

POKEl 98,0:WAITl98,1 

:POKESl,240 :POKESl,0:POKEPL,32 

: POK 


EPL-1,22 

: rem 

173 

105 

POKE7900,5 :POKE7901 

,6:POKE7902,7:POKE7922,32:POKE792 3 


,8:POKE7924,32 

: rem 

11 2 

no 

POKEl 98,0:WAITl98,1 

:POKESl,220 :POKESl,0:POKEPL,32 

19 

: POK 






EPL-1,22:PL=PL-1 : rem 185 

ni IFPL<=7988THENPL=8009 :rem 240 

120 POKE7900,9 :POKE7901,10 :POKE7902,11 :POKE7922,32 :POKE79 
23,12:POKE7924,13 :rem 241 

130 POKE198,0 :WAITl98,1:P0KES1,210:POKES1 ,0 :POKEPL,32 :POK 

EPL-1,22:PL=PL-1 : rem 186 

131 IFPL<=7988THENPL=8009 :rem 242 

135 POKE7900,1 4:POKE7901,1 5 :POKE7902,1 6:POKE7922,1 7:POKE7 

923,18:POKE7924,19 :rem 60 

14 0 POKEl98,0:WAITl98,1rPOKESl,240:POKES1 ,0:POKEPL,32:POK 


10010 


1001 1 


1 0020 

1 0025 
1 0030 
1 0040 

1 0050 


177 
205 
117 
179 
223 
";A$(B): 
rem 202 


: rem 
: rem 
; rem 
: rem 
: rem 


EPL-1,22 

141 POKE7988,32 :IFPL<=7988THENPL=8009 

142 NEXTGI:TE(B)=INT(TI/.6) 

5000 FORT=1 TOSO0 :NEXT:DEC$(B)=STR$(TE(B)) 

10000 F0RY=38T0160 :POKE36865,Y:NEXTY 

POKE3686 9,240 :PRINT"{CLR}":PRINT"{BLU}BENE 
PRINT"TUO TEMPO:" 

PRINTLEFTS(DEC$(B) ,3); :PRINT"{DES}SEC;:PRINT" 

{DES}& "; :PRINTRIGHT?(DEC$(B) ,2); :PRINT" CEN." 

:rem 23 

FORY=160TO38STEP-1 :POKE36865,Y:NEXTY:B = B+1:IFB>ATHE 
N20000 : rem 125 

FORT=1T02 000 :NEXT:PRINT"{HOME}":GOT02 5 :rem 119 
FORY=12T084:POKE36864,Y:FORT=1TOl0 :NEXTT,Y: rem 21 
PRINT"{CLR}":PRINT"ORA TOCCA AL GIOCATORE":PRINT" 

{ 2 SPAZI}NUMERO";B :rem 56 

F0RY=84T012STEP-1:POKE36864,Y:FORT=1TO30:NEXTT,Y:ST 


OP 


20000 

20001 

20002 

20003 

20004 
30000 


3001 0 


30020 


30100 


30110 


50000 


50001 


50002 


:rem 51 
: rem 221 
ANCORA?<S 
:rem 42 
:rem 95 
:rem 225 
:rem 249 
BATTUTO I 


FORT=1T02000:NEXT:ONAGOTO30000,30100 
POKE64 6,INT(RND(1)*6)+l :PRINT"{CLR}GIOCHI 
/N>":GETA$:IFA$=""THEN20001 
IFA$<>"S"ANDA$<>"N"THEN20001 
IFA$="S"THENRUN 
SYS64802 

IFVAL(DEC$(1))<VAL(KI$)THENPRINT"{CLRjHAI 
L ":PRINT"{RVS}{BLK}R{RED)E{CYN}C{PUR}O{GRN}R{YEL}D 
{BLU} 11!" :GOT050000 :rem 214 

IFVAL(DEC$(1))=VAL(KI$)THENPRINT"{CLR}{RVS}BRAVO HA 
I EGUALIATO{OFF}":PRINT"IL {BLK}R{RED}E{CYN}C{GRN}0 
{BLU}R{YEL}D{BLU}":GOT050000 :rem 124 

IFVAL(DECS(1))>VAL(KI$)THENPRINT"RIPROVACI !!":FORT= 
1T05000:NEXT:GOT020001 :rem 111 

IFVAL(DEC$(1))<VAL( DEC$(2))THENPRINT"{CLR}VINCE "; A 
5(1) :rem 54 

IFDEC5(2)<DEC$(1)THENPRINT"{CLRjVINCE ";A$(2) 

:rem 208 

H$="21721322322723423022723423022322721722321721322 
3227234230227234230223" : rem 142 

FORY=0TO22:POKE36876,VAL(MID$(H$,Y*3+1,3)):FORYY=l5 
TOOSTEP-.5:POKE36878,YY:NEXT :rem 190 

NEXT:POKE36876,0:GOTO20001 : rem 111 
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Astrostorm 



Questa volta, affezionati lettori di 
Papersoft, si tratta di un 3 ioco spa¬ 
ziale, che utilizza lo scroll naturale 
del computer, ovvero la parola 
chiave PRINT. Voi guidate l'astro¬ 
nave, e dovete schivare per mezzo 
dei tasti <,> e < > gli asteroidi 
scagliati contro da una delle solite 
tempeste spaziali (che capitano 
sempre quelle poche volte che ci 
capita di guidare un astronave). 


100 RANDOMIZE 

110 CALL CLEAR 

120 FOR 1*5 TO 8 

130 CALL COLORII,16,1) 

140 NEXT I 

150 CALL CLEAR 

160 PRINT " A S T R O S 

170 PRINT 

180 PRINT 

190 PRINT "MUOVI LA NAVE 
200 FOR 1*1 TO 9 
210 PRINT 
220 NEXT I 

230 FOR 1*14 TO 3 STEP - 
240 FOR J*1 TO 20 
250 NEXT J 
260 CALL SCREEN(I) 

270 NEXT I 

280 FOR 1*1 TO 400 

290 NEXT I 

300 S=3 

310 PT=0 

320 RSHIP*10 

330 CSHIP*1 

340 SHIP=62 


Dovrete scegliere la "densità aste¬ 
roidi ' (più è alta e più è difficile), 
e il livello di difficoltà (stesso di¬ 
scorso). 

Naturale che a compimento della 
missione sarete ricompensati dal 
Ministro del Pianeta di appartenen¬ 
za, mentre in caso di fallimento su¬ 
birete un processo non troppo re¬ 
golare (come al solito!). 


T 0 R M 111" 


CON I TASTI < 6 >" 
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350 COL=2 
360 RLSHIP=RSHIP 
370 CLSHIP=CSHIP 
380 CALL CLEAR 

390 PRINT "DENSITÀ' ASTEROIDI (1-10)"; 
400 INPUT X 

410 IF (X>10)+(X<1)THEN 380 
420 PRINT 

430 PRINT "LIVELLO DI DIFFICOLTA (1-10)" 
440 INPUT DCULT 

450 IF (DCULT>10)+(DCULT<1)THEN 380 
460 CALL CLEAR 
470 CALL SCREEN(S) 

480 CALL COLOR(2,16,1) 

490 REM 

500 FOR LOOP=1 TO 1000 
510 FOR 1=1 TO INT(RND*X)+1 
520 COL=INT(RND*30)+2 

53 0 CALL HCHAR(23,COL,42) 

54 0 NEXT I 
550 PRINT 

560 CALL GCHAR(RSHIP+DCULT,CSHIP,LOC) 

570 CALL HCHAR(RLSHIP+DCULT-1,CLSHIP/32) 
580 IF LOC=42 THEN 1190 
590 CALL SCREEN(S) 

600 CALL HCHAR(RSHIP+DCULT,CSHIP,SHIP) 

610 CLSHIP=CSHIP 
620 RLSHIP=RSHIP 
630 CALL KEY( 3, A,STATUS) 

640 IF AOASC (" ." ) THEN 730 
650 CALL SOUND(-700,-5,3) 

660 PT=PT+5*DCULT*X • 

670 CSHIP=CSHIP+1 

680 IF CSHIP032 THEN 720 

690 CSHIP=1 

700 S=S+1 

710 IF S=15 THEN 1 030 
720 SHIP=62 

730 IF AOASC (" ,")THEN 820 
740 CALL SOUND (-700,-6,4) 

750 SHIP=60 

760 PT=PT-8*DCULT*X 

770 CSHIP=CSHIP-1 

780 IF CSHIP>0 THEN 810 
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790 
800 
81 0 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1 01 0 
1 020 
1 030 
1 040 
1 050 
1 060 
1 070 
1 080 
1 090 
1 1 00 
1110 
1120 
1 1 30 
1 140 
1 1 50 
1160 
1170 
1 1 80 
1 1 90 
1 200 
1 210 
1 220 


'UNA MISSIONE DA COMPIERE!!! 


PROVI (S 
THEN 300 


O N)?":G$ 


CSHIP=32 

S=S-SGN(S-3) 

SHIP-60 

REM 

NEXT LOOP 
CALL CLEAR 

PRINT " NON HAI COMPLETATO LA TUA" 
PRINT 

PRINT "MISSIONE. IL GOVERNO DI" 
PRINT 

PRINT "SOLARIAN TI HA PRESO" 

PRINT 

PRINT PT;"IBM PC DALLA TUA CASSA" 

PRINT 

PRINT 

PRINT 

PRINT " PERO TI HA ANCHE DATO" 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT "CI 
IF G$="S" 

GOTO 1500 
REM 

CALL CLEAR 
PRINT " HAI 
PRINT 
PRINT 
PRINT 

PRINT "SOLARIAN TI HA DATO ";PT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 980 
CALL SCREEN(12) 

FOR 1 = 1 TO 50 
NEXT I ' 

CALL SCREEN(9) 


COMPLETATO LA TUA 


"MISSIONE. IL MINISTO DI 1 


"ZX-80 PER IL TUO SERVIZIO" 


"E SI AUGURA CHE TU COMPIA IL 
"PROSSIMO COMPITO AFFIDATOTI! 
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1 230 
1 240 
1 250 
1 260 
1 270 
1 280 
1 290 
1 300 
1 31 0 
1 320 
1 330 
1 340 
1 350 
1 360 
1 370 
1 380 
1 390 
1 400 
1 41 0 
1 420 
1 430 
1 440 
1 4 50 
1 460 
1 470 
1480 
1 490 
1 500 
1 51 0 
1 520 
1 530 


FOR VOL=24 TO 1 STEP -4 
CALL SOUND(200,-7,VOL) 

NEXT VOL 

FOR VOL=1 TO 24 STEP 4 
CALL SOUND(200,-7,VOL) 

NEXT VOL 
CALL SCREEN (12) 

FOR 1=1 TO 10 
NEXT I 

CALL SCREEN(8) 

CALL CLEAR 
CALL SCREEN(6) 

PRINT " MALISSIMO 1 IL GOVERNO DI" 
PRINT " SOLARIAN TI HA SPEDITO UN" 
PRINT " CREDITO DIPT;"DOLLARI" 
PRINT " AMERICANI." 

FOR 1 = 1 TO 5 

PRINT 

NEXT I 

PRINT " PREMI -P- PER RITENTARE" 
PRINT " OPPURE -S- PER FINIRE." 

FOR 1=1 TO 5 
PRINT 
NEXT I 

CALL KEY(3,K,ST) 

IF ST=0 THEN 1470 

IF (K=ASC("P"))THEN 300 

IF (K=ASC ("S" ) ) THEN 1 51 0’ ELSE 1470 

CALL CLEAR 

PRINT TAB(8);"ARRIVEDERCI 
END 


a 

% 

$ Caccia ai rombi 


Questa volta vi dovrete sfosare 
con qualche centinaio di piccoli 
oggetti a forma di rombo che somi¬ 
gliano tanto a dei grossi diamanto- 
ni.... 


Questi preziosi oggetti sono spar¬ 
pagliati al suolo, a vostra disposi¬ 
zione. 

Per arricchirvi raccogliendoli non 
dovrete fare altro che utilizzare i 


24 







tasti con le frecce per muovervi so- \ ne ai non pochi imprevisti che osta- 
pra di essi, facendo però attenzio- I coleranno la vostra "vendemmia 

100 CALL CLEAR 

110 PRINT TAB (6) ; '•*•**•*•**»*********•' 

120 PRINT TAB(6);”* CACCIA AI ROMBI *" 

130 PRINT TAB (6) ; »•******************•' 

140 PRINT : : :"USA I TASTI FRECCIATI PER" 

150 PRINT :"MUOVERTI E PRENDERE TUTTI I" 

160 PRINT :"ROMBI CHE STANNO" 

170 PRINT :"SUL SUOLO." 

180 PRINT ::"ATTENZIONE AL CACCIATORE1: 

190 CALL CHAR( 1 2 8, " 0 0 0 01 8 3C 3C1 8 " ) 

200 CALL CHAR(96,"001C1C083E081414") 

21 0 CALL COLORO, 7,1 ) 

220 CALL CHAR(104,"1CICO83E08141414") 

230 PRINT "PREMI UN TASTO PER PARTIRE."; 

240 CALL KEY(0,K,S) 

250 IF S<1 THEN 240 
260 T= 0 

270 CALL CLEAR 

280 X=1 

290 Y=3 

300 RANDOMIZE 

310 C=INT(15*RND+2) 

320 IF C = 4 THEN 31 0 
330 CALL COLOR(13,C,1) 

340 CALL HCHAR(1,1,128,768) 

350 A=INT(24 *RND+1) 

360 B=INT(25*RND+5) 

370 PG=128 

380 CALL SOUND(150,1497,2) 

390 CALL HCHAR(X,Y,96) 

400 CALL SOUND(150,110,2) 

410 CALL HCHAR(A,B,104) 

420 CALL KEY(1,K,S) 

430 IF (K+1<1)+(K>5)THEN 680 

440 ON K+l GOTO 450,680,480,510,680,540 

450 DX=1 

460 DY=0 

470 GOTO 560 

480 DX=0 

490 DY=-1 

500 GOTO 560 
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510 DX=0 
520 DY=1 
530 GOTO 560 
540 DX=-1 
550 OY=0 ' 

560 CALL HCHAR(X,Y,32) 

570 X=X+DX 
580 Y=Y+DY 

590 X=INT(24*((X-1 )/24-INT((X-1)/2 4)))+1 
600 Y= INT (32*( (Y-1) /32 -INT ( (Y-D/32) ) )+] 
610 CALL GCHAR(X >Y,G) ■ 

620 IF G=104 THEN 830 

630 IF G=32 THEN 670 

640 CALL SOUND(-100,1497,2) 

650 T=T+l 

660 IF T=767 THEN 870 
670 CALL HCHAR(X,Y,96) 

680 CALL HCHAR( A, B,PG) 

690 A=A-SGN(A-X) 

700 IF A>0 THEN 720 
710 A=1 

720 IF A<25 THEN 740 
730 A= 24 

740 B=B-SGN(B-Y) 

750 IF B>0 THEN 770 
760 B=1 

770 IF B<32 THEN 790 
780 B=32 

790 CALL GCHAR(A,B,PG) 

800 IF PG-96 THEN 830 
810 CALL HCHAR(A,B,104) 

820 GOTO 420 

830 CALL SOUND(300,-5,2) 

840 PRINT "IL CACCIATORE TI HA PRESO!!" 
850 PRINT :"HAI PRESO";T;"ROMBI." 

860 GOTO 890 

870 PRINT "CONGRATULAZIONI!!" 

880 PRINT "HAI PRESO TUTTI I ROMBI!!" 
890 PRINT : : :"RITENTI? (S/N)"; 

900 CALL KEY(0,K,S) 

910 IF K=83 THEN 260 
920 IF K<>78 THEN 900 
930 PRINT ::::::: 

940 END 
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Ma qui è pieno di bus! 


16/48K 










Eccovi imprigionati in un'area RAM 
del vostro Spectrum, stretti d'asse¬ 
dio dai bug che voi stessi avete 
introdotto nel corso del vostro ulti¬ 
mo programma BASIC! Le vostre 
sembianze sono quelle di un rag¬ 
gio di luce pura: dovete dunque 
muovervi senza toccare nulla sullo 
schermo (men che meno i ferocissi 


mi bugi), in attesa che una bomba 
ad orologeria posta al centro del 
video esploda, purificando quel¬ 
l'area da tutti gli ospiti indesiderati. 
Usate i tasti "Q" e "W" per muover¬ 
vi a sinistra e destra e "L“ e ""P" 
per spostarvi in basso e in alto. Il 
programma gira anche su Spec¬ 
trum 16K. 


1 

2 

3 
io 
20 
30 
40 
70 
90 

100 
130 
140 
150 
1 52 
1 54 

1 56 
160 
170 
180 
182 
184 
186 
220 
230 
240 
245 
250 
260 
261 
262 

263 

264 

265 

2 70 
271 
275 
280 
281 
290 


REM- 

REM MA QUI E' PIENO DI BUG! 

REM- 

LET keys=0. 

LET BUG=1 
LET C=1 

BORDER 0: PAPER 0: INK 5: CLS 
FLASH 0: CLS 
POKE 23658,255 

PRINT AT 10,3;"PREGO, ATTENDI UN ATTIMO..." 

REM UDG1 

FOR G=USR "C" TO USR "F”+7: READ D: POKE G,D: NEXT G 
DATA 129,247,236,89,60,63,120,112 
DATA 129,239,55,154,60,252,30,14 
DATA 96,40,31,15,30,12,116,240 
DATA 6,12,248,240,123,54,46,28 


REM UDG2 

FOR G=USR "G" TO USR "J"+7: READ D: POKE G,D: NEXT G 

DATA 121,247,236,153,188,63,127,113 

DATA 158,239,55,153,61,252,254,142 

DATA 102,63,31,15,222,108,116,56 

DATA 102,252,248,240,120,48,46,15 

REM UDG3 

FOR G=USR "N" TO USR "N"+7: READ D: POKE G,D: NEXT G 
DATA 0,0,129,195,195,195,129,0 
REM UDG4 

FOR G-USR "O" TO USR "T"+7: READ D: POKE G,Ds NEXT G 

DATA 199,255,91,61,35,117,121,255 

DATA 129,231,255,255,255,219,255,255 

DATA 227,255,218,188,196,174,158,255 

DATA 202,234,96,106,106,254,63,7 

DATA 170,170,0,0,170,170,255,255 

DATA 163,167,6,166,166,190,252,224 

REM UDG5 

FOR G=USR "U" TO USR "U"+7: READ D: POKE G,D: NEXT G 
DATA 126,255,255,255,255,255,255,129 
BORDER 0: PAPER 0: INK 5: CLS 
LET D=1 

FLASH 1: INK 6: LET AS="MA QUI E'": 
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GO SUB 400: FLASH 0 








750 LET J=H: LET H=0: LET H=H-(N=81)+(N=87): IF H=0 THEN LET H=J 
760 LET J=V: LET V=0: LET V=V^(N=76)+(N=80): IF V=0 THEN LET V=J 
762 LET H=H+(H=1)-(H=-1) 

764 LET V*=V+(V-1)MV=--1) 

770 LET X=X+H: LET Y=Y+V 

771 LET T=INT (RND*10)+1 : REM il grande BUG 

772 IF T>7 THEN PRINT AT 9 ,25;"{3G8}";AT 10,25;"{3G8}”: PRINT AT 9, 
2; INK 6; BRIGHT 1;"OPQ";AT 10,2;"RST": BEEP .002,40: BEEP .002, 
50: BEEP .002,60 

773 IF T<3 THEN PRINT AT 9,2;"{3G8}";AT 10,2;"{3G8}": PRINT AT 9,25 
; INK 6; BRIGHT 1;"OPQ";AT 10,25;"RST": BEEP .002,40: BEEP .002, 
50: BEEP .002,60 

775 NEXT Z 

780 REM movimento dei BUGs 

790 BEEP .001,10: BEEP .001,20: PRINT AT 14,M(1);"{2G8}"; INK 3;H$(B 
UG);"{2G8}": PRINT AT 15,M ( 1);"{2G8)"; INK 3;LS(BUG);"{2G8}" 

800 BEEP .001,-10: BEEP .001,-20: PRINT AT 5,M(2);"{2G8}"; INK 6;H$( 
BUG);"{2G8}": PRINT AT 6,M(2);"(2G8)"; INK 6;L$(BUG); M {2G8)" 

810 IF BUG=1 THEN LET BUG=2: GO TO 830 
820 LET BUG-1 

830 LET M(1)=M(1)+0: LET M(2)=M(2)+P 
840 IF M(1)<10 THEN LET 0=2 
850 IF M(1)>17 THEN LET 0=-2 
860 IF M(2)<10 THEN LET P=2 
870 IF M(2)>17 THEN LET P=-2 

880 PRINT AT 10,16; INK 7; BRIGHT 1; INVERSE 1;"{2G8}" 

885 PRINT AT 10,16; INK 7; BRIGHT 1; INVERSE 1 ; ("0" AND TM<10);TM 
890 PRINT AT 21,8; PAPER 2; INK 6;”PUNTI=”;SC;"{7G8}";AT 21,20;"VITE 
=";MEN 

895 BEEP .002,40: LET L=INT (RND*12)+5: LET Q=INT (RND*29)+2 

896 IF ATTR (L,Q)=71 THEN GO TO 895 

897 PRINT AT L,Q; INK 4;'FLASH 1;"{SG6}" 

900 NEXT A: LET SC=SC+5: LET TM=TM-1: BEEP .01,-2: IF TM>0 THEN 
GO TO 700 

999 REM LA BOMBA ESPLODE 

1000 DIM B$(3,4); LET B$(1)*"{G4)(SG6){SG7)(G7)" 

1001 LET BS(2)="{SG3}(SG4){SG8}(G6}" 

1002 LET B$(3)="{SG2}(SG6){G7){G6}" 

1005 PRINT AT 7,12; INK 5;"BONUS ";BO*10 

1006 LET SC=SC+BO*l0 

1011 FOR G=1 TO 20: FOR J=1 TO 3 

1020 LET F=INT (RND*3)+1: LET K=INT (RND*-5)-10 

1030 BEEP .003,K+l0: PRINT AT 8+J,15;B$(F) 

1040 NEXT J : NEXT G 
1050 PAUSE 150: CLS 

1060 PRINT AT 2,15; INK 4;"OPQ";AT 3,15; INK 4;"RST" 

1070 LET D=16 

1080 PRINT : PRINT : LET A$="TI PRENDERÒ’ LA PROSSIMA VOLTA !": 

GO SUB 400 
1090 PRINT : PRINT 

1110 INK 6: LET A$="ATTENZIONE AL PROSSIMO LIVELLO 1": GO SUB 400: 

INK 5 

1120 PAUSE 0: CLS : LET X=24Ó: LET Y=88: LET H=-2: LET V=2: LET TM=BO 
+5: GO TO 580 

2000 LET X=240: LET Y=88: REM perdi una vita 

2010 FOR J=40 TO -5 STEP -1 

2020 BEEP .04,J: BORDER INT (RND*7)+1: NEXT J 

2025 LET MEN=MEN-1 

2030 BORDER 0: CLS 

2040 FLASH 1: FOR G=0 TO 21 

2045 LET X$=”{G7){SG7}{G7}{SG7){67}{SG7)(G7}{SG7){G7}{SG7}{G7)(SG7} 
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LET AS="PIENO": GO SUB 400 

INVERSE 1: LET AS="DI BUGI II": GO SUB 400: 

LET A$=“VUOI VEDERE LE ISTRUZIONI (S/N)?": 

LET D$=CHR$ (PEEK 23560): IF D$="N" THEN 
CLS : LET D = 1: PRINT : LET AS-"I S T R U Z 
LET A$*"Sei imprigionato in un'area RAM ": 

LET AS*"dello SPECTRUM, infestata da": GO SUB 400 
LET A$*"terribili BUGS! Devi cercare di ": GO SUB 400 
LET AS="muoverti sullo schermo senza": GO SUB 400 
LET AS»"toccarli. Il tuo aspetto e' ": GO SUB 400 
LET AS“"quello di un raggio di luce pura": GO SUB 400 
LET AS*"in perenne movimento....”: GO SUB 400 
FLASH 1: INK 7: BRIGHT 1: LET A$-" PREMI UN TASTO 
E ”: GO SUB 400: PAUSE 0: FLASH 0: CLS : LET D*1 
LET AS-"TASTI/CONTROLLO": GO SUB 400 
INK 6: LET A$-"Q-SINISTRA”: GO SUB 400 


INVERSE 0: INK 5 
GO SUB 400: PAUSE 0: 
GO TO 500 

I O N I”: GO SUB 400 
GO SUB 400 


PER CONTINUAR 


INK 6: LET AS *"W-DESTRA ": GO SUB 400 

INK 6: LET AS»"L*—--*BASSO ": GO SUB 400 
INK 6: LET AS =."P*-^*.-ALTO ": GO SUB 400 

LET D*D-1: LET AS*” GO SUB 400 

: LET AS="NON TOCCARE NULLA SULLO SCHERMO”: GO SUB 400: LET AS*" 
...O MORIRAI !!!": LET D=D-1: GO SUB 400: INK 5: LET AS*”C'e' un 
a bomba a orologeria nel": GO SUB 400 
LET aS="mezzo dello schermo. Quando": GO SUB 400 
LET aS="esplode uccide tutti i BUGSII": GO SUB 400 
FLASH 1: INK 7: BRIGHT 1: LET AS=" PREMI UN TASTO PER GIOCARE 
": GO SUB 4 00: FLASH 0: PAUSE 0 : GO TO 500 
LET X=LEN (A$): LET X*INT (32-X)/2 
FOR G=1 TO LEN AS: BEEP .004,6 

PRINT AT D/X+G-l;AS(G TO G): NEXT G: LET D=D+2 
RETURN 

REM INIZIA IL GIOCO 

INK 5: PAPER 0: BORDER 0: CLS 

REM INIZIA'LIZZAZIONE VARIABILI 

LET SC=0: LET MEN=3: LET TM=20: LET BO*TM 

DIM H$(2,2): DIM L$(2,2) 

LET HS(1)=”CD": LET HS(2)*"GH" 

LET L$(1)="EF": LET LS(2)="IJ" 

LET X=240: LET V*88 

LET H=-3: LET V"-3: DIM M(2): LET M(l)=16: LET M(2)=16 
LET BUG* 1 

REM ALLESTIMENTO SCHERMO 

PLOT 252,8: DRAW 0,167: PLOT 254,8: DRAW 0,166: PLOT 2,8: DRAW 9 
5,0: DRAW 26,30: DRAW 20,0: DRAW 26,-30: DRAW 84,0: DRAW 0,166: 
DRAW -84,0: DRAW -26,-30: DRAW -20,0: DRAW -26,30: DRAW -95,0: 
DRAW 0,-166 

PRINT AT-21,0;"{32SG8)" 

FOR G=-10 TO 7: FOR K*1 TO 5: BEEP .003,G+H: NEXT K: NEXT G 
PRINT AT 9,15; INK 7; BRIGHT 1 ;"{G4}{2SG8}(SG7}" 

PRINT AT 10,15; INK 7; BRIGHT 1;"(G5)"; INVERSE 1;("0" AND TM<10 
);TM; INVERSE 0;"(SG5)" 

PRINT AT 11,15; INK 7; BRIGHT 1 ;"{Gl}(2SG8}(G2)" 

LET 0=-2: LET P=2 
REM LOOP PRINCIPALE 

FOR A*1 TO 2: PLOT INK 4;X,Y: BEEP .002,0: BEEP .002,-4 
FOR Z=1 TO 6: PLOT INK 4;X,Y: BEEP .002,0: BEEP .002,^4 
LET HIT*POINT (X+H,Y+V): IF HIT=1 THEN GO TO 2000 
LET HIT*POINT (X+H.Y+V-V): IF HIT*1 THEN GO TO 2000 
LET HIT*POINT (X+H,Y+V^(V-1)): IF HIT-1 THEN GO TO 2000 
REM LETTURA TASTIERA 
LET N=PEEK (23560) 
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(G7)(SG7}lG 7}(SG7){G7){SG7}(G7}{SG7){G7}(SG7}{G7){SG7){G7}{SG7} 
{G7 } (SG7 } (G7 ) {SG7 ) {G7 ) (SG7 } " 

2050 PRINT PAPER 2; INK 6; BRIGHT 1;X$: NEXT G 

2060 FLASH 0: PRINT AT 9,4;"ACCIDENTI... SEI MORTO!!!" 

2070 IF MEN>0 THEN PRINT AT 11,9; "VITE RESTANTI 11 ;MEN 

2080 IF MEN=0 THEN PRINT AT 11,6;"LA PARTITA E' FINITA": GO TO 2100 

2090 PAUSE 0: LET H=-2: LET V=-2: CLS : GO TO 580 

2100 REM RIPOSA IN PACE 

2105 PAUSE 0 

2110 CLS : PRINT : PRINT 
2120 PRINT TAB 12;"{3G8}{SG8)" 

2130 PRINT TAB 12;" R.I.P " 

2140 FOR G=1 TO 6: PRINT TAB 12;"{3G8}{SG8}": NEXT G 
2150 PRINT : PRINT 

2160 PRINT INK 6;"{6G8)IL PUNTEGGIO E': ";SC: PRINT : PRINT "{4G8} 
{9G8)OPQ": PRINT ”{3G8) {10G8JRST" 

2180 PRINT : PRINT "{3G8}PREMI UN TASTO PER GIOCARE{3G8}": PAUSE 0: 
GO TO 280 


ERRATA CORRIGE 


A causa di uno spiacevole errore, due linee DATA del quarto Papersoft 
n. 26 del 5 luglio 1985, presentano errori tali da impedirne la corretta 
esecuzione. Le linee corrette sono riportate qui di seguito. 


80 DATA 75,111,122,205,131,122,201,33,30,123,17,37,0,25,61, 
32,252,229,221,225 
90 DATA 201,0,0,0,0,0,0,0,0,5081 
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Guida per l’input dei programmi 
sullo ZX Speetrum 


Come è noto, lo Speetrum è provvisto di 
2 serie di tasti grafici: una prima sene di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi "shiftati") e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe. 

A esempio (G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato 

Cosi ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte, analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A. 


j Quando leggete 

1 Premete 

ir 

(Gl) 

05 

■ 

( G2} 

P"F1 

■ 

(G3) 

OH 

m 

|C4| 

OLI 

m 

(G5) 

IMI 

1 

(G6) 

OS 

s 

(G7J 

OP1 

s 

{ G 8} 

im 

□ 

(SG11 — 

■COH 013 

b 

!sg?) Ffofrrt 

| Mi ■] 

J 

ISG3I fSrj 

■o ni n 

m 

ISG4I Ugrtgfl 

■lo ni' ! ■ 

r 

(SGS) 

■r 1 u r® 

■ 

{SG6 } 

noi (« s 

■ 

* 

(SG7) 

1 AJ \> s 

■ 

1 SG8 ) 

1 „;pJ 1* 1 1 

■ 


Vedrete | 



| Quando leggete || Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

J 

K 

L 

M 

N 

O 

P 

0 



Simbolo grafico 
definito nel 
programma In uso. 
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IL VERO GIOCO COMINCIA ADESSO 




